COMMENT ⊗   VALID 00012 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE  ADTST
C00003 00003	READY:	OUTSTR[ASCIZ/CHAN	INPUT	CABLE	PATCH PANEL	USE
C00004 00004		SKIPE HANGED↔OUTSTR[ASCIZ/HANGED
C00005 00005		MOVE 10,[POINT 12,NUMMIE]
C00006 00006		MOVEI 4,4
C00007 00007	GULP:	TTYUUO 2,
C00008 00008	GO:	SKIPE FLAG↔DISMIS
C00009 00009		INTEGER CHAN,ETIME,GOODIE,FLAG,HANGED,DAMNED
C00010 00010	MESS:	[ASCIZ/00	1B18R	1C30A	2A17A	2A18A	SPARE/]
C00012 00011		[ASCIZ/30	1D18R	1D30A	2B21A	2B22A	BLUE ARM JOINT 1/]
C00015 00012		[ASCIZ/60	1C20R				GOLD ARM JOINT 4 POSITION/]
C00017 ENDMK
C⊗;
TITLE  ADTST
S:	OUTSTR[ASCIZ/THIS PROGRAM READS ANY A-TO-D CHANNEL FROM 0 TO 77 OCTAL.
TYPE ? FOR A COMPLETE LIST OF THE MULTIPLEXER CHANNEL ASSIGNMENTS.
TYPE <LINE FEED> TO REPEAT READING, AND <CARRIAGE RETURN> TO CHANGE CHANNEL.
/]
START:	TTYUUO 3,[ASCIZ/
CHAN?	/]
	MOVEI 1,
	TTYUUO
	CAIN 15↔JRST READY
	CAIN 77↔JRST QUERY
	CAIL 60↔CAILE 70↔JRST START
	SUBI 60↔LSH 1,3↔IOR 1,
	JRST START+2

QUERY:	MOVE 1,[-100,,0]
	OUTSTR[ASCIZ/
/]↔	OUTSTR[ASCIZ/CHAN	INPUT	CABLE	PATCH PANEL	USE
/]↔	OUTSTR[ASCIZ/
/]↔	OUTSTR @MESS(1)
	AOBJN 1,.-2
	JRST START
READY:	OUTSTR[ASCIZ/CHAN	INPUT	CABLE	PATCH PANEL	USE
/]↔	OUTSTR @MESS(1)
	OUTSTR[ASCIZ/
/]↔	LSH 1,=12
	TTYUUO
	TTYUUO 3,[ASCIZ/SPEED 0, 1, 2, OR 3?	/]
	TTYUUO
	CAIL 60
	CAILE 63
	JRST .-4
	SUBI 60
	LSH 3
	IOR 1,
	MOVEM 1,GOODIE
	TTYUUO 3,[ASCIZ/
/]
STRT:	SPCWAR GO
scan:	SKIPN FLAG
	JRST .-1
	SETZM FLAG
	SPCWAR 636367
	SKIPE HANGED↔OUTSTR[ASCIZ/HANGED
/]↔	SKIPE DAMNED↔OUTSTR[ASCIZ/DAMNED
/]↔	SETZM DAMNED
	SETZM HANGED
	MOVE 10,[POINT 12,NUMMIE]
LOAD:	MOVEI 11,8
SHOOT:	MOVEI 7,8
FIRE:	ILDB 1,10
	SETZ 0,0
	ROTC 33
	MOVEI 4,4
BANG:	ADDI 60
	TTYUUO 1,
	MOVEI
	ROTC 3
	SOJG 4,BANG
	TTYUUO 1,[11]
	SOJG 7,FIRE
	TTYUUO 3,[asciz/
/]
	SOJG 11,SHOOT
	MOVEI 4,4
	MOVE ETIME
	MOVEI 2,=1000
ZING:	IDIV 2
	ADDI 60
	TTYUUO 1,
	IDIVI 2,=10
	MOVE 1
	SOJG 4,ZING
	TTYUUO 3,[ASCIZ/ MICRO-SECONDS TOTAL	/]
	MOVE ETIME
	IDIVI =64
	IDIVI =100
	ADDI 60
	TTYUUO 1,
	IDIVI 1,=10
	ADDI 1,60
	ADDI 2,60
	TTYUUO 1,1
	TTYUUO 1,2
	TTYUUO 3,[ASCIZ/ MICRO-SECONDS EACH
/]
	MOVE 17,[ZEROS,,NUMMIE]
	BLT 17,NUMMIE+47
GULP:	TTYUUO 2,
	SKIPA
	JRST GULP
	TTYUUO
	CAIE 15
	JRST STRT
	TTYUUO
	JRST START
GO:	SKIPE FLAG↔DISMIS

	CONI 204,CHAN
	MOVE 10,CHAN
	ANDI 10,7
	SKIPE 10
	DISMIS

	SETZM FLAG
	CONO 204,4250
	CONO 424,@GOODIE
	MOVE 5,[-26,,0]
	CONI 730,ETIME

MUFF:	MOVEI 4,=25
	CONI 204,1
	TRNE 1,11000
	JRST GOTIT
	SOJN 4,.-3
	JRST HUNG
GOTIT:	TRNE 1,10000
	JRST DAMIT

GETOUT:	DATAI 204,NUMMIE(5)
	AOBJN 5,MUFF
	CONI 730,10
	CONO 424,4000
	SUBM 10,ETIME
	CONO 204,@CHAN
	SETOM FLAG
	DISMIS
	INTEGER CHAN,ETIME,GOODIE,FLAG,HANGED,DAMNED
HUNG:	SETOM HANGED↔SETOM FLAG↔DISMIS
DAMIT:	SETOM DAMNED↔SETOM FLAG↔DISMIS
NUMMIE:	BLOCK 50
ZEROS:	BLOCK 50
MESS:	[ASCIZ/00	1B18R	1C30A	2A17A	2A18A	SPARE/]
	[ASCIZ/01	1B18T	1C30C	2A17C	2A18C	SPARE/]
	[ASCIZ/02	1B19R	1C30E	2A17E	2A18E	SPARE/]
	[ASCIZ/03	1B19T	1C30H	2A17H	2A18H	SPARE/]
	[ASCIZ/04	1B20R	1C30K	2A17K	2A18K	SPARE/]
	[ASCIZ/05	1B20T	1C30M	2A17M	2A18M	SPARE/]
	[ASCIZ/06	1B21R	1C30P	2A17P	2A18P	SPARE/]
	[ASCIZ/07	1B21T	1C30S	2A17S	2A18S	SPARE/]

	[ASCIZ/10	1B22R	1C30U	2A17U	2A19A	SPEECH INPUT A/]
	[ASCIZ/11	1B22T	1C31A	2B17A	2A19E	SPEECH INPUT B/]
	[ASCIZ/12	1B23R	1C31C	2B17C	2B19C	POT BOX 12/]
	[ASCIZ/13	1B23T	1C31E	2B17E	2B19E	POT BOX 13/]
	[ASCIZ/14	1B24R	1C31H	2B17H	2B19H	POT BOX 14/]
	[ASCIZ/15	1B24T	1C31K	2B17K	2B19K	POT BOX 15/]
	[ASCIZ/16	1B25R				SPARE/]
	[ASCIZ/17	1B25T	1C31P	2B17P	2B20C	COHU TV FOCUS/]

	[ASCIZ/20	1B26R	1C31S	2B17S	2B20E	COHU TV TILT/]
	[ASCIZ/21	1B26T	1C31U	2B17U	2B20H	COHU TV PAN/]
	[ASCIZ/22	1B27R	1C32A	2A21A	2A22A	SCORPION JOINT 1/]
	[ASCIZ/23	1B27T	1C32C	2A21C	2A22C	SCORPION JOINT 2/]
	[ASCIZ/24	1B28R	1C32E	2A21E	2A22E	SCORPION JOINT 3/]
	[ASCIZ/25	1B28T	1C32H	2A21H		TV -40 VOLT REF/]
	[ASCIZ/26	1B29R	1C32K	2A21K	2B29K	SPARE/]
	[ASCIZ/27	1B29T	1C32M	2A21M	2B29E	SPARE/]

	[ASCIZ/30	1D18R	1D30A	2B21A	2B22A	BLUE ARM JOINT 1/]
	[ASCIZ/31	1D18T	1D30C	2B21C	2B22C	BLUE ARM JOINT 2/]
	[ASCIZ/32	1D19R	1D30E	2B21E	2B22E	BLUE ARM JOINT 3/]
	[ASCIZ/33	1D19T	1D30H	2B21H	2B22H	BLUE ARM JOINT 4/]
	[ASCIZ/34	1D20R	1D30K	2B21K	2B22K	BLUE ARM JOINT 4B/]
	[ASCIZ/35	1D20T	1D30M	2B21M	2B22M	BLUE ARM JOINT 5/]
	[ASCIZ/36	1D21R	1D30P	2B21P	2B22P	BLUE ARM JOINT 6/]
	[ASCIZ/37	1D21T	1D30S	2B21S	2B22S	BLUE ARM JOINT 6B/]

	[ASCIZ/40	1D22R	1D30U	2B21U	2B22U	BLUE ARM JOINT 7/]
	[ASCIZ/41	1D22T	1D31A	2A25A	2B23A	BLUE ARM JOINT 1 TACH/]
	[ASCIZ/42	1D23R	1D31C	2A25C	2B23C	BLUE ARM JOINT 2 TACH/]
	[ASCIZ/43	1D23T	1D31E	2A25E	2B23E	BLUE ARM JOINT 3 TACH/]
	[ASCIZ/44	1D24R	1D31H	2A25H	2B23H	BLUE ARM JOINT 4 TACH/]
	[ASCIZ/45	1D24T	1D31K	2A25K	2B23K	BLUE ARM JOINT 5 TACH/]
	[ASCIZ/46	1D25R	1D31M	2A25M	2B23M	BLUE ARM -10 REF/]
	[ASCIZ/47	1D25T	1D31P	2A25P	2B23P	SPARE/]

	[ASCIZ/50	1D26R	1D31S	2A25S	2B23S	SPARE/]
	[ASCIZ/51	1D26T	1D31U	2A25U	2B24U	GOLD ARM -10 REF/]
	[ASCIZ/52	1D27R				GOLD ARM JOINT 1 TACH/]	
	[ASCIZ/53	1D27T				GOLD ARM JOINT 2 TACH/]
	[ASCIZ/54	1C18R				GOLD ARM JOINT 3 TACH/]
	[ASCIZ/55	1C18T				GOLD ARM JOINT 1 POSITION/]
	[ASCIZ/56	1C19R				GOLD ARM JOINT 2 POSITION/]
	[ASCIZ/57	1C19T				GOLD ARM JOINT 3 POSITION/]

	[ASCIZ/60	1C20R				GOLD ARM JOINT 4 POSITION/]
	[ASCIZ/61	1C20T				GOLD ARM JOINT 6 POSITION/]
	[ASCIZ/62	1C21R				GOLD ARM JOINT 6 POSITION/]
	[ASCIZ/63	1C21T				GOLD ARM JOINT 6 ALT. POSITION/]
	[ASCIZ/64	1C22R				GOLD ARM TOUCH SENSOR 1/]
	[ASCIZ/65	1C22T				GOLD ARM TOUCH SENSOR 2/]
	[ASCIZ/66	1C23R/]
	[ASCIZ/67	1C23T/]

	[ASCIZ/70	1C24R				GOLD ARM HAND POSITION/]
	[ASCIZ/71	1C24T				COHU TARGET VOLTAGE/]
	[ASCIZ/72	1C25R				SIERRA CAM REF -10/]
	[ASCIZ/73	1C25T				SIERRA CAM PAN/]
	[ASCIZ/74	1C26R				SIERRA CAM TILT/]
	[ASCIZ/75	1C26T				SIERRA CAM FOCUS/]
	[ASCIZ/76	1C27R				SIERRA CAM ZOOM/]
	[ASCIZ/77	1C27T				SIERRA CAM IRIS/]
END S